home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Dev / Rsrc / New / Cmds0 (.txt) next >
Encoding:
Oberon Document  |  1995-08-09  |  2.1 KB  |  52 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. Helvetica
  17. Helvetica
  18. StdStamps.StdViewDesc
  19. Helvetica
  20. MODULE NewCmds;
  21.     IMPORT TextModels, TextViews, TextControllers;
  22.     (** sample command **)
  23.     PROCEDURE Do*;
  24.     (** guard: TextCmds.FocusGuard **)
  25.         VAR c: TextControllers.Controller; t: TextModels.Model; r: TextModels.Reader; ch: CHAR;
  26.     BEGIN
  27.         c := TextControllers.Focus();    (* get focus controller, if there is a focus view and if this view is a text view *)
  28.         IF c # NIL THEN
  29.             IF c.HasSelection() THEN
  30.                 t := c.text;    (* get the controller's text model *)
  31.                 r := t.NewReader(NIL);    (* set up new reader at beginning of text *)
  32.                 r.ReadChar(ch);
  33.                 WHILE ~r.eot DO    (* iterate over all characters in text *)
  34.                     (* do something with ch *)
  35.                     r.ReadChar(ch)
  36.                 END
  37.             END
  38.         END
  39.     END Do;
  40. END NewCmds.
  41. TextControllers.StdCtrlDesc
  42. TextControllers.ControllerDesc
  43. Containers.ControllerDesc
  44. Controllers.ControllerDesc
  45. TextRulers.StdRulerDesc
  46. TextRulers.RulerDesc
  47. TextRulers.StdStyleDesc
  48. TextRulers.StyleDesc
  49. TextRulers.AttributesDesc
  50. Helvetica
  51. Documents.ControllerDesc
  52.